約 2,105,195 件
https://w.atwiki.jp/ce00582/pages/1581.html
Function makeavgmtime(byear As Single, m2by, mdeby, alpha, beta, gamma, theta) As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(15 To 64, 1 To 49) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single age = 15 mis(age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - mdeby(byear, age) - v) * mos(age - 1, car) Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(64, car) + mos(64, car) z2 = z2 + car * (mis(64, car) + mos(64, car)) Next makeavgmtime = z2 / z1 End Function Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim avgmtime(1985 To 2100) As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 avgmtime(byear) = makeavgmtime(byear, m2by, mdeby, alpha, beta, gamma, theta) Next Open "c /hagetaka/gdata/男子平均加入年数1.txt " For Output As #131 For byear = 1990 To 2100 Write #131, byear, avgmtime(byear) Next Close #131 End Sub
https://w.atwiki.jp/mathpub/pages/44.html
「ベクトルの内積」 作成者 olaf 問題文 | \vec{a} | = $1, | \vec{b} | = $2, \theta = $3° の時、 内積 \vec{a} \cdot \vec{b} を求めなさい。 表示される問題文 の時 内積 を求めなさい。 解答文 | \vec{a} | = $1, | \vec{b} | = $2, \theta = $3°の時の内積\vec{a} \cdot \vec{b}を求めなさい。 \vec{a} \cdot \vec{b} = $1 * $2 * \cos $3 = $4 表示される解答文 の時 内積を求めなさい。 制約条件 Rd(2, 10); $1$2 Sd(30, 45, 60, 90, 120); $3 Cos($3) = $13; b $1 * $2 * $13 = $4; b 解説・メモ ベクトルの数式をTeXの\vec{}で表現してます。 内積の点は\cdotを使用しています。
https://w.atwiki.jp/ce00582/pages/2725.html
import java.awt.*; import java.awt.event.*; import java.awt.Graphics; class pro extends Frame { public static void main(String [] args) { Frame f=[[new]] pro(); f.setTitle("pro"); f.setSize(700,700); f.setBackground(Color.yellow); f.setVisible(true); } pro(){addWindowListener(new stopwin());} class stopwin extends WindowAdapter{ public void windowClosing(WindowEvent we){System.exit(0);} } public void paint(Graphics g){ int x,y,z; int px,py; int afx[]=new int[3]; int afy[]=new int[3]; x=0; y=0; z=500; px=pointx(x,y,z); py=pointy(x,y,z); g.drawLine(100,600,100+px,600-py); x=500; y=0; z=0; px=pointx(x,y,z); py=pointy(x,y,z); g.drawLine(100,600,100+px,600-py); x=0; y=500; z=0; px=pointx(x,y,z); py=pointy(x,y,z); g.drawLine(100,600,100+px,600-py); g.setColor(Color.red); x=100; y=100; z=100; afx[0]=100+pointx(x,y,z); afy[0]=600-pointy(x,y,z); x=200; y=100; z=100; afx[1]=100+pointx(x,y,z); afy[1]=600-pointy(x,y,z); x=100; y=200; z=100; afx[2]=100+pointx(x,y,z); afy[2]=600-pointy(x,y,z); g.fillPolygon(afx,afy,3); x=200; y=100; z=100; afx[0]=100+pointx(x,y,z); afy[0]=600-pointy(x,y,z); x=100; y=200; z=100; afx[1]=100+pointx(x,y,z); afy[1]=600-pointy(x,y,z); x=200; y=200; z=100; afx[2]=100+pointx(x,y,z); afy[2]=600-pointy(x,y,z); g.fillPolygon(afx,afy,3); x=100; y=100; z=200; afx[0]=100+pointx(x,y,z); afy[0]=600-pointy(x,y,z); x=100; y=200; z=200; afx[1]=100+pointx(x,y,z); afy[1]=600-pointy(x,y,z); x=200; y=100; z=200; afx[2]=100+pointx(x,y,z); afy[2]=600-pointy(x,y,z); g.fillPolygon(afx,afy,3); x=200; y=100; z=200; afx[0]=100+pointx(x,y,z); afy[0]=600-pointy(x,y,z); x=100; y=200; z=200; afx[1]=100+pointx(x,y,z); afy[1]=600-pointy(x,y,z); x=200; y=200; z=200; afx[2]=100+pointx(x,y,z); afy[2]=600-pointy(x,y,z); g.fillPolygon(afx,afy,3); x=100; y=100; z=100; afx[0]=100+pointx(x,y,z); afy[0]=600-pointy(x,y,z); x=100; y=100; z=200; afx[1]=100+pointx(x,y,z); afy[1]=600-pointy(x,y,z); x=200; y=100; z=100; afx[2]=100+pointx(x,y,z); afy[2]=600-pointy(x,y,z); g.fillPolygon(afx,afy,3); x=200; y=100; z=200; afx[0]=100+pointx(x,y,z); afy[0]=600-pointy(x,y,z); x=100; y=200; z=200; afx[1]=100+pointx(x,y,z); afy[1]=600-pointy(x,y,z); x=200; y=200; z=200; afx[2]=100+pointx(x,y,z); afy[2]=600-pointy(x,y,z); g.fillPolygon(afx,afy,3); } public static int pointy(double x,double y,double z){ int p2; double theta,phi; theta=-0.222222*Math.PI; phi=0.333333*Math.PI; p2=(int)(-Math.cos(theta)*Math.cos(phi)*x-Math.sin(theta)*Math.cos(phi)*y+Math.sin(phi)*z); return p2; } public static int pointx(double x,double y,double z){ int p1; double theta; theta=-0.222222*Math.PI; p1=(int)(-Math.sin(theta)*x+Math.cos(theta)*y); return p1; } }
https://w.atwiki.jp/ce00582/pages/523.html
Function seekpibot(target As Single, x, b) Dim m As Single Dim under As Single Dim c(1 To 21) As Single Dim px As Single For m = 1 To 21 under = x(m, target) c(m) = 999 If under 10 ^ (-5) Then c(m) = b(m) / under Next px = 999 minc = 999 For m = 1 To 21 If c(m) minc Then px = m If c(m) minc Then minc = c(m) Next seekpibot = px End Function Function seektarget(x) As Single Dim n As Single Dim tx As Single tx = 999 For n = 1 To 41 If x(0, n) 0 Then tx = n Next seektarget = tx End Function Private Sub Command1_Click() Dim m As Single Dim n As Single Dim x(0 To 21, 1 To 41) As Single Dim b(0 To 21) As Single Dim target As Single Dim pibot As Single Dim z As Single Dim theta As Single theta = 1.2 For n = 1 To 10 x(0, n) = 11 - n x(0, 10 + n) = 11 - n Next For m = 1 To 20 x(m, m) = 1 Next For m = 1 To 20 x(m, m + 20) = 1 Next For n = 1 To 10 x(21, n) = 1 Next For n = 11 To 20 x(21, n) = theta Next x(21, 41) = 1 b(0) = 0 For n = 1 To 20 b(n) = 1 Next b(21) = theta * 10 target = seektarget(x) Do Until target 100 pibot = seekpibot(target, x, b) For m = 0 To 21 z = x(m, target) / x(pibot, target) If m = pibot Then z = 0 For n = 1 To 41 x(m, n) = x(m, n) - z * x(pibot, n) Next b(m) = b(m) - z * b(pibot) Next Debug.Print target, pibot, b(0) target = seektarget(x) Loop End Sub
https://w.atwiki.jp/ce00582/pages/1583.html
Function makeavgftime(byear As Single, f2by, fdeby, alpha, beta, gamma, theta) As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(15 To 64, 1 To 49) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single age = 15 mis(age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - fdeby(byear, age) - v) * mos(age - 1, car) Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(64, car) + mos(64, car) z2 = z2 + car * (mis(64, car) + mos(64, car)) Next makeavgftime = z2 / z1 End Function Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim avgftime(1985 To 2100) As Single Open "c /hagetaka/gdata/変形生命表.txt " For Input As #117 Do Until EOF(117) Input #117, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #117 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /hagetaka/gdata/変形厚生年金被保険者.txt " For Input As #116 Do Until EOF(116) Input #116, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #116 For byear = 1990 To 2034 avgftime(byear) = makeavgftime(byear, f2by, fdeby, alpha, beta, gamma, theta) Next Open "c /hagetaka/gdata/女子平均加入年数1.txt " For Output As #132 For byear = 1990 To 2100 Write #132, byear, avgftime(byear) Next Close #132 End Sub
https://w.atwiki.jp/javadsge/pages/9744.html
package nnx; public class nn { int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[6][5][5]; int[] y=new int[101]; double[][] x=new double[101][4]; int s,sx,tr; double[][] a=new double[7][5]; double[][] dalpha=new double[7][5]; double[] b=new double[5]; double[] dbeta=new double[5]; double[][] dtheta=new double[5][5]; double[][][] th=new double[6][5][5]; void makedata(){ int q,s,sx; double g1=0; double g2; int trial=0; while(trial 50){ trial=trial+1; f sub=new f(); sub.x=x; sub.y=y; sub.number_step=number_step; sub.number_var=number_var; sub.number=number; sub.alpha=alpha; sub.beta=beta; sub.theta=theta; g1=sub.makedata(); int eq,m; for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ fresh(); double h=0.01; a[eq][m]=a[eq][m]+h; f sub2=new f(); sub2.x=x; sub2.y=y; sub2.number_step=number_step; sub2.number_var=number_var; sub2.number=number; sub2.alpha=a; sub2.beta=beta; sub2.theta=theta; g2=sub2.makedata(); dalpha[eq][m]=(g2-g1)/h; } } for(m=0;m number_var+1;m++){ fresh(); double h=0.01; b[m]=b[m]+h; f sub2=new f(); sub2.x=x; sub2.y=y; sub2.number_step=number_step; sub2.number_var=number_var; sub2.number=number; sub2.alpha=alpha; sub2.beta=b; sub2.theta=theta; g2=sub2.makedata(); dbeta[m]=(g2-g1)/h; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ double h=0.01; fresh(); th[number_step][eq][m]=theta[number_step][eq][m]+h; f sub3=new f(); sub3.x=x; sub3.y=y; sub3.number_step=number_step; sub3.number_var=number_var; sub3.number=number; sub3.alpha=alpha; sub3.beta=beta; sub3.theta=th; g2=sub3.makedata(); dtheta[eq][m]=(g2-g1)/h; } } fresh(); double sig=0; for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ sig=sig+dtheta[eq][m]*dtheta[eq][m]; } } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ sig=sig+dalpha[eq][m]*dalpha[eq][m]; } } for(m=0;m number_var+1;m++){ sig=sig+dbeta[m]*dbeta[m]; } for(m=0;m number_var+1;m++){ b[m]=beta[m]-0.01*g1*dbeta[m]/sig; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ a[eq][m]=alpha[eq][m]-0.01*g1*dalpha[eq][m]/sig; }} for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ th[number_step][eq][m]=theta[number_step][eq][m]-0.01*g1*dtheta[eq][m]/sig; }} f sub4=new f(); sub4.x=x; sub4.y=y; sub4.number_step=number_step; sub4.number_var=number_var; sub4.number=number; sub4.alpha=a; sub4.beta=b; sub4.theta=th; g2=sub4.makedata(); if(g2 g1)refresh(); if(g2 g1)trial=10000; } } void fresh(){ int eq,m; for(m=0;m number_var+1;m++){ b[m]=beta[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ a[eq][m]=alpha[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ th[tr][eq][m]=theta[tr][eq][m]; }}} } void refresh(){ int eq,m; for(m=0;m number_var+1;m++){ beta[m]=b[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ alpha[eq][m]=a[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ theta[tr][eq][m]=th[tr][eq][m]; }}} } }
https://w.atwiki.jp/bochinessreturns/pages/67.html
『黄色さん_サムネ』 ←BACK 会場TOPへ NEXT→
https://w.atwiki.jp/gununu/pages/192.html
KEY THE METAL IDOL 作品情報 公式HP http //pierrot.jp/title/key/ 1枚 巳真兎季子
https://w.atwiki.jp/gtavvehicles/pages/239.html
Cheetah シートベルト、飲酒運転防止条例、アンチロックブレーキ、 そして男の尊厳を無視したGPSと、口やかましい女性のナビ音声… ここ50年の技術の進歩をさっぱり忘れて、ドライビングの黄金時代に立ち返りましょう。 この車は1970年代にグロッティ社が生み出した試作型スポーツカーです。 イタリア流設計の粋を集めたこのマシンは、どんなコンプレックスをも過剰にカバーしてくれます。 そう、まさにイタリア人のように。 概要 車体：スーパーカー 分類：スーパーカー 会社：GROTTI 和音：チーター ドア：2枚 駆動：MR モデル：エンツォ フェラーリ、GTA・スパーノ 性能 重量： 最高速： 加速： ギア： 解説 低く構えたデザインにレーシングカーと見間違えるようなボディワーク、シュモクザメのような独特のライト形状が特徴的なスーパーカー。 膨れ上がったリアフェンダーはスペイン初のスーパーカー、GTA・スパーノを連想させる。 Turismo Rの先代モデルに当たると思われ、性能は同車と大して変わらない。 ハイパワーな為、ホイールが空転しやすいことを除けば非常に扱いやすいスーパーカーの一台。 ハンドリング性能もしっかり確保されているので、レースなどでは有効に使えるだろう。Entity XFと比べると性能は若干落ちてしまうが、気にする程の差は無い。 オンオフ問わず通常出現することはなく、どちらもレジェンダリーモーターで$650,000で購入する必要がある。 オンラインではジョブの「バートンで籠城」にて黒色のこの車がマドラッゾ邸に置かれているが入手はもちろん不可能。 オフラインではミッション「オーバーロード」にて登場。トレバーが運転することになる1台。 なお、この「Cheetah」の名はGTAⅢから登場したネーミングであり、当時はフェラーリ・テスタロッサのような外観をしていた。 前作GTA4でこの名前は一度消滅したものの、今作では他の名前と同じく再登場を果たした。 スポーツカーであったこのCheetahがスーパーカーとなって再登場…その進化に感動を覚えた人も少なくないのではないだろうか？ モデル エンツォ・フェラーリ GTA・スパーノ
https://w.atwiki.jp/abysseaxxdol/pages/20.html
曜日 白魔法/黒魔法 歌 忍術 青魔法(BP) 火 ファイアⅢ、ファイアⅣ、ファイガⅢ、フレア 氷のスレノディ 火遁の術：弐 ファイアースピット(5)、火炎の息(4) 土 ストーンⅢ、ストーンⅣ、ストンガⅢ、クエイク 雷のスレノディ 土遁の術：弐 磁鉄粉(3)、シードスプレー(2) 水 ウォータⅢ、ウォータⅣ、ウォタガⅢ、フラッド 炎のスレノディ 水遁の術：弐 メイルシュトロム(5)、リガージテーション(1) 風 エアロⅢ、エアロⅣ、エアロガⅢ、トルネド 土のスレノディ 風遁の術：弐 ヘカトンウェーブ(3)、神秘の光(4) 氷 ブリザドⅢ、ブリザドⅣ、ブリザガⅢ、フリーズ 風のスレノディ 氷遁の術：弐 アイスブレイク(3)、フロストブレス(3) 雷 サンダーⅢ、サンダーⅣ、サンダガⅢ、バースト 水のスレノディ 雷遁の術：弐 B.シュトラール(4)、マインドブラスト(4) 光 バニシュⅡ、バニシュⅢ、バニシュガⅡ、ホーリー、フラッシュ 闇のスレノディ R.ブレス(4)、針千本(5) 闇 バイオⅡ、ディスペル、ドレイン、アスピル 光のスレノディ 暗闇の術：弐 デスレイ(2)、アイズオンミー(4)